Global $check, $def, $inifle, $last, $line_1, $line_2
$check = ""
$last = ""
$inifle = @ScriptDir & "\Settings.ini"
$def = IniRead($inifle, "Title", "part", "")
AutoItSetOption("WinTitleMatchMode", 2)
While 1
WinActivate($def, "")
Send("+{DOWN}")
Send("^c")
$line_1 = ClipGet()
If $last = "" And $check <> 1 Then
$last = $line_1
If StringLen($last) < 3 Then
$check = 1
;Msgbox(0, "Line Length", StringLen($last))
;WinActivate($def, "")
Else
$last = ""
EndIf
ElseIf StringLen($last) < 3 And $check = 1 Then
If $line_1 = $last Then
Send("{LEFT}")
Send("{F6}")
Send("+{DOWN}")
Send("{LEFT}")
Send("{F6}")
$check = ""
Msgbox(0, "Finished", "Checking has completed or more than one blank line in a row!")
ExitLoop
Else
$last = $line_1
If StringLen($last) > 2 Then
$check = ""
Else
$check = 1
EndIf
EndIf
Else
$check = ""
EndIf
Send("{LEFT}")
Send("{DOWN}")
Send("{F6}")
Send("+{DOWN}")
Send("^c")
$line_2 = ClipGet()
Send("{LEFT}")
Send("{DOWN}")
Send("{F6}")
If $line_1 <> $line_2 Then
Msgbox(0, "Line Check", "No Match with last line!")
ExitLoop
EndIf
WEnd
Exit




Global $def, $inifle, $line_1, $line_2

$inifle = @ScriptDir & "\Settings.ini"
$def = IniRead($inifle, "Title", "part", "")
AutoItSetOption("WinTitleMatchMode", 2)
WinActivate($def, "")
Send("+{DOWN}")
Send("^c")
$line_1 = ClipGet()
Send("{LEFT}")
Send("{DOWN}")
Send("{F6}")
Send("+{DOWN}")
Send("^c")
$line_2 = ClipGet()
Send("{LEFT}")
Send("{DOWN}")
Send("{F6}")
If $line_1 <> $line_2 Then Msgbox(0, "Line Check", "No Match!")
WinActivate($def, "")

Exit
